100 REM ***************************
110 REM * LISTING 2: Basic-Loader *
120 REM * DEMO ZUM KREISPROGRAMM  *
130 REM * P. FINZEL 1986          *
150 REM ***************************
200 GOSUB 30000
210 KREIS=28672
300 GRAPHICS 8+16:COLOR 1
310 FOR R=5 TO 50 STEP 5
320 X=USR(KREIS,159,R,R)
330 X=USR(KREIS,159,191-R,R)
340 X=USR(KREIS,159-R,95,R)
350 X=USR(KREIS,159+R,95,R)
360 NEXT R
400 GOTO 400
30000 REM * KREIS-ROUTINE
30010 S=0:RESTORE 30100
30020 FOR A=28672 TO 29093:READ D:POKE A,D:S=S+D:NEXT A
30030 IF S<>52984 THEN ? "DATEN-FEHLER ! ":STOP
30090 RETURN
30100 DATA 104,169,0,133,251,104,133,213,104,133,212,32,170,217,162
30110 DATA 184,160,113,32,167,221,104,133,213,104,133,212,32,170,217
30120 DATA 162,190,160,113,32,167,221,104,133,213,104,133,212,32,170
30130 DATA 217,162,166,160,113,32,167,221,32,182,221,162,119,160,113
30140 DATA 32,137,221,32,40,219,162,178,160,113,32,167,221,32,68,218
30150 DATA 162,172,160,113,32,167,221,162,172,160,113,32,137,221,32
30160 DATA 74,113,162,166,160,113,32,152,221,32,219,218,162,202,160
30170 DATA 113,32,167,221,162,172,160,113,32,137,221,32,125,113,162
30180 DATA 166,160,113,32,152,221,32,219,218,162,196,160,113,32,167
30190 DATA 221,32,207,112,162,5,189,196,113,72,189,202,113,157,196
30200 DATA 113,104,157,202,113,202,16,239,32,207,112,162,172,160,113
30210 DATA 32,137,221,162,178,160,113,32,152,221,32,102,218,162,172
30220 DATA 160,113,32,167,221,32,182,221,162,159,160,113,32,137,221
30230 DATA 32,96,218,165,212,48,3,76,83,112,96,169,0,32,228,112,169
30240 DATA 64,32,228,112,169,128,32,228,112,169,192,32,228,112,96
30250 DATA 141,165,113,162,196,160,113,32,152,221,162,184,160,113
30260 DATA 32,137,221,44,165,113,112,6,32,102,218,76,3,113,32,96,218
30270 DATA 32,210,217,165,212,133,85,165,213,133,86,162,202,160,113
30280 DATA 32,152,221,162,190,160,113,32,137,221,44,165,113,48,6,32
30290 DATA 102,218,76,42,113,32,96,218,32,210,217,165,213,208,24,165
30300 DATA 212,133,84,162,96,169,11,157,66,3,169,0,157,72,3,157,73
30310 DATA 3,165,200,32,86,228,96,162,208,160,113,32,167,221,32,182
30320 DATA 221,32,219,218,169,3,162,107,160,113,32,64,221,162,208
30330 DATA 160,113,32,152,221,32,219,218,96,62,131,51,51,51,51,191
30340 DATA 22,102,102,102,103,64,1,0,0,0,0,32,182,221,32,219,218,169
30350 DATA 3,162,141,160,113,32,64,221,96,63,4,102,102,102,103,191
30360 DATA 80,0,0,0,0,64,1,0,0,0,0,63,120,83,152,22,52,0